Creating Graphics in Visual Basic 6

Private Sub Form_Load()
    ' Add shape options to list
    List1.AddItem "Rectangle"
    List1.AddItem "Square"
    List1.AddItem "Oval"
    List1.AddItem "Circle"
    List1.AddItem "Rounded Rectangle"
    List1.AddItem "Rounded Square"
End Sub

Private Sub List1_Click()
    ' Change shape based on selection
    Select Case List1.ListIndex
        Case 0: Shape1.Shape = 0  ' Rectangle
        Case 1: Shape1.Shape = 1  ' Square
        Case 2: Shape1.Shape = 2  ' Oval
        Case 3: Shape1.Shape = 3  ' Circle
        Case 4: Shape1.Shape = 4  ' Rounded Rectangle
        Case 5: Shape1.Shape = 5  ' Rounded Square
    End Select
End Sub

Private Sub Command1_Click()
    ' Show color dialog and apply selection
    CommonDialog1.Flags = &H1&
    CommonDialog1.ShowColor
    Shape1.BackColor = CommonDialog1.Color
End Sub

Dim a, b, c As Integer

Private Sub Command1_Click()
    ' Generate random numbers
    a = 3 + Int(Rnd * 3)
    b = 3 + Int(Rnd * 3)
    c = 3 + Int(Rnd * 3)
    
    ' Set images based on random values
    If a = 3 Then
        Image1(0).Picture = LoadPicture("C:\Images\grape.gif")
    ElseIf a = 4 Then
        Image1(0).Picture = LoadPicture("C:\Images\cherry.gif")
    ElseIf a = 5 Then
        Image1(0).Picture = LoadPicture("C:\Images\orange.gif")
    End If
    
    ' Repeat for other image boxes
    ' ...
End Sub

' Draw a point at (100, 100)
PSet (100, 100), vbRed

' Draw a line from (0,0) to (1000,2000)
Line (0, 0)-(1000, 2000), vbBlue

' Draw a filled rectangle
Line (500, 500)-(1500, 1500), vbGreen, BF

' Draw a circle at (1000,1000) with radius 500
Circle (1000, 1000), 500, vbMagenta