Zelaron Gaming Forum - View Single Post

D3V

D3V said:

It's a TROJAN don't download it!

Your gay. Here is the source

Code:

Private Sub Form_Load()
Image1.Picture = LoadPicture("SignatureFace.gif")
End Sub

Private Sub mnuCloseItem_Click()
Image2.Picture = LoadPicture("")
mnuCloseItem.Enabled = 0
End Sub

Private Sub mnuEx1Item_Click()
    Image2.Picture = LoadPicture("examples/EX1.gif")
    mnuCloseItem.Enabled = 1
End Sub

Private Sub mnuEx2Item_Click()
    Image2.Picture = LoadPicture("examples/EX2.gif")
    mnuCloseItem.Enabled = 1
End Sub

Private Sub mnuEx3Item_Click()
    Image2.Picture = LoadPicture("examples/EX3.gif")
    mnuCloseItem.Enabled = 1
End Sub

Private Sub mnuEx4Item_Click()
    Image2.Picture = LoadPicture("examples/EX4.gif")
    mnuCloseItem.Enabled = 1
End Sub

Private Sub mnuExitItem_Click()
    End
End Sub

Private Sub mnuOpenItem_Click()
CommonDialog1.Filter = "Graphic Files (*.bmp;*.gif;*.jpg)|*.bmp;*.gif;*.jpg|All Files (*.*)|*.*"
CommonDialog1.ShowOpen
Image2.Picture = LoadPicture(CommonDialog1.FileName)
mnuCloseItem.Enabled = 1
End Sub