Private Sub Command1_Click()
Me.CommonDialog1.ShowPrinter
End Sub
Private Sub Command2_Click()
Dim count(3) As String
Dim MyName(3) As String
Dim MyCourse(3) As String
Dim MyAddress(3) As String
count(0) = "1"
count(1) = "2"
MyName(0) = "rajeev"
MyName(1) = "raju"
MyCourse(0) = "Math"
MyCourse(1) = "Vb"
MyAddress(0) = "Gandhi Vihar"
MyAddress(1) = "Delhi"
For i = 0 To 3 Step 1
If Me.T_search.Text = count(i) Then
Me.T_address.Text = MyAddress(i)
Me.T_course.Text = MyCourse(i)
Me.T_name.Text = MyName(i)
End If
Next
End Sub
