so chia het cho 3

Private Sub Command1_Click()
Dim n As Long
n = Text1.Text
If n Mod 3 = 0 Then
MsgBox n & " chia het cho 3"
ElseIf n Mod 3 = 1 Then
MsgBox n & " chia cho 3 du 1"
ElseIf n Mod 3 = 2 Then
MsgBox n & " chia cho 3 du 2"
End If
End Sub

Private Sub Command2_Click()
Form5.Hide
Form2.Show
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

code usename va password

Private Sub Command1_Click()
If Text1.Text = "cuong" And Text2.Text = "123" Then
MsgBox "ban da dang nhap thanh cong"
Form2.Show
Else
Text1.Text = " "
Text2.Text = " "
MsgBox " vui long nhap lai "
End If

End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Form1.Hide


End Sub

Code pha mau

Private Sub VScroll1_Change(Index As Integer)
Dim A As String
With Picture1
.BackColor = RGB(VScroll1(0), VScroll1(1), VScroll1(2))
End With
A = "picture1.backcolor = RGB(" & VScroll1(0).Value & "," & VScroll1(1).Value & "," & VScroll1(2).Value & ","
Label1.Caption = A
End Sub