Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.80K
1 Posted Topic
Private Sub Timer1_Timer() Dim FromModem$ On Error Resume Next For i% = 1 To 6 MSComm1.CommPort = i% If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MSComm1.InBufferCount = 0 Label8.Caption = " PORT " & i% pb1.Value = pb1.Value + 10 List2.AddItem i% Text1.Text = "Searching Modem Port" & i% …
The End.