home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / kbase / VB5NS / FIGS / CH14 / 14FIG3.GIF < prev   
Graphics Interchange Format  |  1997-05-15  |  17.4 KB  |  800x600  |  4-bit (16 colors)
   ocr: E Projecti Microsoft Visual Basic [run] EX Eile Edit View Project Format Debug Run Tools Add-Ins Window Help 105, 105 4800 X 3885 Project1 - Form1 (Code) X mnuFileExit Click Private - Form1 -OX A Dim strMy File Fly Drive Dim b A strMyQu como esta?" b = Msc End End Sub Test Private S Senor, como esta? Msg = rI Iitle =E OK Style E Respons End Sub Private Sub mnuF lyAmerican Click() Msg = "You chose American" Title = "American Air" Style = vbokOnly Response = MsgBox (Msg, Style, Title) End Sub Private Sub mnuF lysouthuest Click() Immediate x Project - Project1 x