[62531]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If F1.Text = "251" Then
           TextBox82.Text = "KWI"
           TextBox81.Text = "AMM"

       ElseIf f1.text = "123" Then
           TextBox82.Text = "KWI"
           TextBox81.Text = "DXB"

       ElseIf MsgBox("", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
           F1.Clear()
           TextBox82.Clear()
           TextBox81.Clear()

       End If
End Sub