Bonjour à tous.
J'ai conscience de la simplicité de la tâche mais je galère pour simplement ajouter une ligne sur mon image "pict1" sous VB6.
Je suis un habitué de Java et je débute en VB.
J'ai parcouru pendant des heures des forums de discussion je n'en puis plus :
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
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
 
Private Const DT_WORDBREAK = &H10
Private Const DT_CENTER = &H1
 
 
Private Sub bColor_Click()
 
Dim rct As RECT
 
With commandPanel
  With .pict1
    .AutoRedraw = True
    .Height = 400
    .Width = 2000
    .BorderStyle = vbSBNone
    .ForeColor = RGB(255, 100, 255)
    .BackColor = RGB(0, 0, 0)
    .Font = "Tahoma"
    .FontSize = 10
    .ScaleMode = vbPixels
  End With
End With
 
With rct
  .Left = 0
  .Right = pict1.ScaleWidth
  .Top = 0
  .Bottom = pict1.ScaleHeight
End With
 
 
DrawText pict1.hDC, "lorem ipsum", -1, rct, DT_CENTER
 
Dim pen As pen
pict1.DrawLine(pen, 1, 2, 3, 4)
pict1.Picture = pict1.Image
 
End Sub
 
 
Qu'est ce qui ne va pas avec mon code ?
Désolé si je ne suis pas assez précis et merci d'avance