Private Sub cmdBlue_Click()

Image1.Picture = LoadPicture("C:\vb\blue.bmp")

End Sub

Private Sub cmdClear_Click()

Image1.Picture = LoadPicture("C:\vb\white.bmp")

End Sub

Private Sub cmdGreen_Click()

Image1.Picture = LoadPicture("C:\vb\green.bmp")

End Sub

Private Sub cmdRed_Click()

Image1.Picture = LoadPicture("C:\vb\red.bmp")

End Sub

Private Sub cmdExit_Click()

End

End Sub