Dim level As Integer
Dim r, g, b AsInteger
Dim ordinar As Integer
Dimxc, y c As Integer
Dim dx, dy As Integer
Dim ac, bc As Integer
Dim sss As Integer
Dim ballsize AsInteger = 20
Dim gg As MessageBoxButtons
接下來..
CaseKeys.Right
Ifrossaria.Left>Me.Width - rossaria.Width - 20 Then
rossaria.Left = Me.Width - rossaria.Width
Else
rossaria.Left = rossaria.Left + 20
EndIf
CaseKeys.Up
Ifrossaria.Top> 250 Then
rossaria.Top = rossaria.Top - 20
EndIf
CaseKeys.Down
Ifrossaria.Top< 400 Then
rossaria.Top = rossaria.Top + 20
EndIf
很急