كيف احدد رقم com port للمودم بالكود

السلام عليكم ورحمة الله و بركاته

الاخوة الاعزاء انا استخدم الكود التالي في اكسبريس 2005 لطلب رقم تليفون

وهو تقريبا نفس الكود في vb6

يعيبه اني اضطر لاختيار رقم الكوم بورت الذى اعرفه مسبقا يدويا من الكومبو

هل هناك طريقة لتحديد كوم بورت المودم بالكود ؟

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MSComm1.PortOpen = True Then
            MSComm1.PortOpen = False
        End If
    End Sub
    'To Add MSComm1 in dot net
    'Tool---> choose toolBox items---->COM Coponents---> Microsoft Communication Control 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.TopMost = True
        Me.MinimizeBox = False
        Me.MaximizeBox = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        Me.Text = "Dialer_net by GAF58"
        Button1.Text = "Connect"
        Button2.Text = "Disconnect"
        Button2.Location = Button1.Location
        Button2.Visible = False
        '


        ComboBox1.Items.Add(1)
        ComboBox1.Items.Add(2)
        ComboBox1.Items.Add(3)
        ComboBox1.Items.Add(4)
        ComboBox1.Items.Add(5)
        ComboBox1.Items.Add(6)
        ComboBox1.Items.Add(7)
        ComboBox1.Items.Add(8)
        '
        Dim x
        For x = 1 To 8
            MSComm1.CommPort = x
            If MSComm1.PortOpen = False Then
                ComboBox1.Text = MSComm1.CommPort
            End If

        Next x




    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Visible = False
        Button2.Visible = True
        '
        Dim phoneNo As String
        On Error GoTo WrongPort
        MSComm1.CommPort = ComboBox1.Text
        MSComm1.Settings = "300,n,8,1"
        phoneNo = TextBox1.Text
        MSComm1.PortOpen = True
        MSComm1.Output = "ATDT" + phoneNo + Chr(13)
        Exit Sub
WrongPort:

        Button1.Visible = True
        Button2.Visible = False

        If MsgBox("        Port not correct" & vbCrLf & vbCrLf & "Please chick the corrected One manually from list..", vbOKCancel Or vbInformation, "Required suitable port ") = vbOK Then
            TextBox1.Text = ""
            TextBox1.Focus()
        Else
            End

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button1.Visible = True
        Button2.Visible = False
        MSComm1.PortOpen = False
    End Sub

تحياتي