VB编的小画板中的问题

Private Sub files_Click(Index As Integer)
Select Case Index
Case 0
Me.Picture = LoadPicture("")
Me.Caption = "小画板-" & "未命名"
Case 1
CommonDialog1.ShowOpen
Me.Picture = LoadPicture("CommonDialog1.FileName")
Me.Caption = "小画板-" & CommonDialog1.FileName
Case 2
CommonDialog1.FileName = Mid(Me.Caption, 5)
CommonDialog1.ShowSave
SavePicture Me.Image, CommonDialog1.FileName
Case 3
End
End Select
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Caption = "小画板-" & "未命名"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
CurrentX = X: CurrentY = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Line (C

VB画板的填充功能 vb编小程序 VB中的几个小问题 vb 中的小问题(2) VB中的若干小问题！ VB中的三个小问题 vb中的小问题 紧急！ vb中的一个小问题 方程ax^2+bx+c用VB编一个小程序的问题 关于几何画板的问题！