Can I draw a straight line on a UserForm?

Option Explicit

Private Declare Function LineTo _
    Lib "gdi32" ( _
        ByVal hdc As Long, _
        ByVal x As Long, _
        ByVal y As Long) _
As Long

Private Declare Function MoveToEx _
    Lib "gdi32" ( _
        ByVal hdc As Long, _
        ByVal x As Long, _
        ByVal y As Long, _
        lpPoint As POINTAPI) _
As Long

Private Declare Function AngleArc _
    Lib "gdi32" ( _
        ByVal hdc As Long, _
        ByVal x As Long, _
        ByVal y As Long, _
        ByVal dwRadius As Long, _
        ByVal eStartAngle As Single, _
        ByVal eSweepAngle As Single) _
As Long

Private Declare Function GetDC _
    Lib "user32" ( _
        ByVal hWnd As Long) _
As Long

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Type POINTAPI
  x As Long
  y As Long
End Type

Private hdc As Long
Private m_X1 As Single, m_Y1 As Single
Private m_X2 As Single, m_Y2 As Single
Dim pt As POINTAPI

Private Sub DrawLine(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)
  
  MoveToEx hdc, X1, Y1, pt
  LineTo hdc, X2, Y2
  
End Sub

Private Sub DrawHorLine(ByVal sX1 As Long, ByVal sY1 As Long, ByVal lng As Long) ', ByVal Y2 As Long)
  
  MoveToEx hdc, sX1, sY1, pt
  LineTo hdc, lng, sY1
  
End Sub
Private Sub DrawVerLine(ByVal sX1 As Long, ByVal sY1 As Long, ByVal lng As Long) ', ByVal Y2 As Long)
  
  MoveToEx hdc, sX1, sY1, pt
  LineTo hdc, sX1, lng
  
End Sub

Private Sub CommandButton2_Click()
    DrawLine TextBox1, TextBox2, TextBox3, TextBox4
End Sub

where the Textboxs are just values ... this is just a snipet from a bigger project.....