' Text ausgeben
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As _
  Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal _
  wFormat As Long) As Long
 
'Ellipse ausgeben
Private Declare Function Ellipse Lib "gdi32" Alias "Ellipse" (ByVal hdc As _
  Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) _
  As Long
 
'Bild ausgeben
Private Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As _
  Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight _
  As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal _
  dwRop As Long) As Long