Cursor Changing (Tip) - Visual Basic

Tip ini digunakan untuk mengubah tampilan kursor pada form yang ditentukan. Untuk membuatnya, bukalah program VB, kemudian masukkan Combo Box ke dalam form dan atur propertiesnya seperti gambar.

Setelah itu, masukkan kode berikut dalam kode editor.

Private Sub Combo1_Click()
If Combo1.Text = "Compass Arrow" Then
Form1.MousePointer = 15
ElseIf Combo1.Text = "Question Arrow" Then
Form1.MousePointer = 14
ElseIf Combo1.Text = "Loading Arrow" Then
Form1.MousePointer = 13
ElseIf Combo1.Text = "Forbid" Then
Form1.MousePointer = 12
ElseIf Combo1.Text = "Loading Panel" Then
Form1.MousePointer = 11
ElseIf Combo1.Text = "Up Arrow" Then
Form1.MousePointer = 10
ElseIf Combo1.Text = "Left-Right Arrow" Then
Form1.MousePointer = 9
ElseIf Combo1.Text = "Diagonal \ Arrow" Then
Form1.MousePointer = 8
ElseIf Combo1.Text = "Up-Down Arrow" Then
Form1.MousePointer = 7
ElseIf Combo1.Text = "Diagonal / Arrow" Then
Form1.MousePointer = 6
ElseIf Combo1.Text = "Left-Right Arrow" Then
Form1.MousePointer = 5
ElseIf Combo1.Text = "Normal Arrow" Then
Form1.MousePointer = 4
ElseIf Combo1.Text = "I Pointer" Then
Form1.MousePointer = 3
ElseIf Combo1.Text = "Plus Pointer" Then
Form1.MousePointer = 2
End If
End Sub

Private Sub Form_Load()
Form1.MousePointer = 1
Combo1.AddItem "Forbid"
Combo1.AddItem "Loading Panel"
Combo1.AddItem "Up Arrow"
Combo1.AddItem "Left-Right Arrow"
Combo1.AddItem "Diagonal \ Arrow"
Combo1.AddItem "Up-Down Arrow"
Combo1.AddItem "Diagonal / Arrow"
Combo1.AddItem "Normal Arrow"
Combo1.AddItem "I Pointer"
Combo1.AddItem "Plus Pointer"
Combo1.AddItem "Question Arrow"
Combo1.AddItem "Loading Arrow"
Combo1.AddItem "Compass Arrow"
End Sub

Catatan : Tulisan berwarna biru bisa diganti sesuai keinginan, tetapi kaitan nama di Form_Load tersebut harus tetap mengacu pada nama di Combo1_Click. Misalnya Combo1.AddItem "Arrow", maka di Form_Load harus ada kata Combo1.Text = "Arrow".
OK! Tip telah berhasil dibuat. Jika ada permasalahan, langsung ke box komentar ya...