All pastes #349241 Raw Edit

Mine

public text v1 · immutable
·published 2007-02-10 17:30 UTC
rendered paste body
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