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!!