Private Sub as_Click(Index As Integer)
MSComm1.CommPort = 1
        MSComm1.Settings = "9600,N,8,1"
        MSComm1.PortOpen = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = True
End Sub

Private Sub ass_Click(Index As Integer)
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
        MSComm1.PortOpen = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = True
End Sub

Private Sub asss_Click(Index As Integer)
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
        MSComm1.PortOpen = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = True
End Sub

Private Sub Com4_Click(Index As Integer)
MSComm1.CommPort = 4
MSComm1.Settings = "9600,N,8,1"
        MSComm1.PortOpen = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = True
End Sub

Private Sub Command1_Click(Index As Integer)
Timer1.Interval = Text4
End Sub

Private Sub Command2_Click()
Timer2.Interval = Text1
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
        Timer2.Enabled = False
        Picture1.Visible = False
        Picture2.Visible = False
        MSComm1.RTSEnable = True
        Picture1.Visible = True
        Picture2.Visible = False
End Sub

Private Sub Command4_Click()
Timer1.Enabled = False
        Timer2.Enabled = False
        Picture1.Visible = False
        Picture2.Visible = False
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        Picture2.Visible = True
        Picture1.Visible = False
End Sub

Private Sub Command5_Click()
Timer2.Enabled = True
End Sub

Private Sub Command6_Click()
Timer1.Enabled = False
        Timer2.Enabled = False
        Picture1.Visible = False
        Picture2.Visible = False
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
End Sub

Private Sub Form_Load()
        Timer1.Enabled = False
        Timer2.Enabled = False
        Picture1.Visible = False
        Picture2.Visible = False
End Sub

Private Sub Picture3_Click()

End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Enabled = True
Picture1.Visible = False
Picture2.Visible = True
MSComm1.RTSEnable = False
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
Picture1.Visible = True
Picture2.Visible = False
MSComm1.RTSEnable = True
End Sub

Private Sub программе_Click()
Y = MsgBox("Разработчик: Щербинин Алексей Сергеевич              2012год                                                                             Программа предназначена для управления заряд-разрядным устройством                                                                                                                                                                  Версия 1.1 ")
End Sub

Private Sub справка_Click()
Y = MsgBox("Выстави параметры порта и оптимальные время заряда и разряда, и радуйся успеху :) ")
End Sub