ho provato cosi ma mi da lo stesso errore precedentemente segnalato

codice:
Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.ListIndex + 1
End Sub



Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "^Q30,0,0" & vbCr
MSComm1.Output = "^W50" & vbCr
MSComm1.Output = "^H5" & vbCr
MSComm1.Output = "^S2" & vbCr
MSComm1.Output = "^Q30,0,2" & vbCr
MSComm1.Output = "^C14" & vbCr
MSComm1.Output = "L" & vbCr
MSComm1.Output = "BG,20,100,3,3,100,0,1,12345678901234567" & vbCr
MSComm1.Output = "E" & vbCr


End Sub