drawing outlined text

[Matt]

Replace your "Sub DrawText" with this:

Code:

Public Sub DrawText(ByVal hdc As Long, ByVal X, ByVal Y, ByVal Text As String, Color As Long)
    Call SelectObject(hdc, GameFont)
    Call SetBkMode(hdc, vbTransparent)
    Call SetTextColor(hdc, RGB(50, 50, 50))
    Call TextOut(hdc, X - 1, Y - 1, Text, Len(Text))
    Call TextOut(hdc, X + 1, Y - 1, Text, Len(Text))
    Call TextOut(hdc, X - 1, Y + 1, Text, Len(Text))
    Call TextOut(hdc, X + 1, Y + 1, Text, Len(Text))
    Call SetTextColor(hdc, Color)
    Call TextOut(hdc, X, Y, Text, Len(Text))
End Sub