Code:
Private Sub Form_Load() //Cai dòng này giống như hàm main hay sao vậy
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
Me.MSComm1.RThreshold = 1
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub Timer1_Timer() // dòng này giải thích giùm em lun nghe.
' Chử chạy từ phải sang trái
If Label1.Left >= -Me.Width Then
Label1.Left = Label1.Left - 10
Else
Label1.Left = Me.Width
End If
End Sub
Em mới học VB6, ai có thể chú thích rỏ từng lệnh trên giùm em với!!
