Code:
If e.KeyValue = Keys.Up Then
piccar.Top = piccar.Location.Y - 6
ElseIf e.KeyValue = Keys.Down Then
piccar.Top = piccar.Location.Y + 6
End If
If e.KeyValue = Keys.Up Then
piccar.Top = piccar.Location.Y - 6
ElseIf e.KeyValue = Keys.Down Then
piccar.Top = piccar.Location.Y + 6
End If
listBox.list(?) = "what ever"
Private Sub save_button_Click()
if combobox1.Listindex < 0 then
' Not Selected Code
else
'Selected Code
endif
end sub
Dim test As Integer Private Sub Command1_Click() test = Abs(test - 1) Timer1.Enabled = (test = 1) End Sub Private Sub Timer1_Timer() do your code End Sub
Private Sub Command1_Click()
On Error GoTo errHandle
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\robert.lacour.RBG0\Desktop\dans vb stuff\pic\warrior.jpg")
Exit Sub
errHandle:
your code here
End Sub
Private Sub Combo1_Change() [or _Click()] Label1.Caption = Combo1.Text End Sub
public variable1 as string public variable2 as string ... your code ... variable1 = "hello" variable2 = variable1 + "there" ... if variable1 = "hello" then end if
Private Sub Command1_Click()
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\robert.lacour.RBG0\Desktop\dans vb stuff\pic\warrior.jpg")
End Sub
Leave a comment: