Создайте линию и обведите в Visual Basic

Question

Я не нашел правильный код для рисования линии и круга.

Я пробовал использовать 4 разных кода, но у меня проблема с переменными и объектами.

Вотмой код:

Option Explicit  

Private flag As Boolean  

'Variables  
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single  

'Dibuja el circulo en el formulario  

Private Sub Dibujar_Circulo()        
    Dim cx As Single, cy As Single, dx As Single  
    Dim dy As Single, Radio As Single  

    cx = x1  
    cy = y1  
    dx = x1 - x2  
    dy = y1 - y2  

    ' calcula el radio  
    Radio = Sqr(dx * dx + dy * dy)  

    'Dibuja el círculo  
    Circle (cx, cy), Radio  
End Sub  

Я получил только боттон без каких-либо действий: (* ​​1008 *