VB中通过列表框设计列表项画点，画线，画圆，并通过单击设计的列表项

Question

VB中通过列表框设计列表项画点，画线，画圆，并通过单击设计的列表项在窗体上画出相应图形

Answer 1

Option Explicit

Private Sub Form_Load()
List1.AddItem "画点", 0
List1.AddItem "画线", 1
List1.AddItem "画圆", 2
End Sub

Private Sub List1_Click()
    Dim x As Double, y As Double
    x = Me.ScaleWidth / 2
    y = Me.ScaleHeight / 2
    
    If List1.ListIndex = 2 Then Me.Circle (x, y), 500, vbBlue
    If List1.ListIndex = 1 Then Me.Line (x, y)-(0, 0), vbGreen
    If List1.ListIndex = 0 Then
        DrawWidth = 10
        Me.PSet (x, y), vbRed
    End If
        
End Sub