Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long

Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, ByVal nBkMode As Long) As Long

Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpPoint As Long) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function ExtFloodFill Lib "gdi32" _
  (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, _
  ByVal crColor As Long, ByVal wFillType As Long) As Long
  
Dim deskDC As Long
Dim Printstr As String




Private Sub Command1_Click()
' Рисовать
  
  Call TextOut(deskDC,  200 ,  300 , Printstr, Len(Printstr))
  Call MoveToEx(deskDC,  170 ,  310 ,  0 )
  Call LineTo(deskDC,  190 ,  310 )
  Call LineTo(deskDC,  190 ,  330 )
  Call MoveToEx(deskDC,  190 ,  310 ,  0 )
  Call LineTo(deskDC,  140 ,  360 )
  
  Call ExtFloodFill(deskDC,  191 ,  311 ,  133 ,  1 )
  
  Call Ellipse(deskDC,  180 ,  340 ,  200 ,  360 )
  Call Rectangle(deskDC,  120 ,  360 ,  160 ,  370 )
End Sub



Private Sub Form_Load()
  
  'Создаём контекст устройства (DC)
  deskDC = CreateDC("DISPLAY", vbNullString, vbNullString,  0 )
  'Установить режим прозрачного фона при выводе текста
  SetBkMode deskDC, TRANSPARENT
  Printstr = "Текст на экране"
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' Удалить созданный ранее контекст
  Call DeleteDC(deskDC)
End Sub