VB interface

Dim port As Integer

Private Sub Check1_Click()
If Check1.Value = 0 Then
Check1.Caption = "ceklis untuk menyalakan"
Shape1.FillColor = vbWhite
MSComm1.Output = "b"
Else
Shape1.FillColor = vbRed
Check1.Caption = "hilangkan ceklis untuk mematikan"
MSComm1.Output = "a"
End If
End Sub

Private Sub Command1_Click()
Check1.Enabled = True
MSComm1.CommPort = Val(Combo1.Text)
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MsgBox "Connected", vbInformation, "Berhasil"
Command1.Enabled = False
Combo1.Enabled = False
End Sub

Private Sub Command2_Click()
MsgBox "visit my-blog, Papermindvention.blogspot.com", vbExclamation, "Closed"
MSComm1.PortOpen = False
End
End Sub

Private Sub Form_Load()
Check1.Enabled = False
For port = 1 To 10
Combo1.AddItem port
Next port
End Sub