Dim pesquisa As String

Private Sub cmdPesquisa_Click()
pesquisa = "http://www.medicinenet.com/script/main/srchcont.asp?src=" & txtPesquisa.Text

Shell "cmd /c start " & pesquisa

End Sub

Private Sub Command1_Click()
Form3.Show
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Command3_Click()
Form4.Show
End Sub

Private Sub Command4_Click()
txtPesquisa.Text = ""
End Sub



Private Sub frmAbout_mnu_Click()
  
  frmAbout.Show
  
End Sub