winkey + m varken bu kadar kasmak niye?

Form Üzerine 2 Adet Command Buton YerleştirinKodu Yapıştırın Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" As LongPrivate Const WM_COMMAND As Long = &H111Private Const MIN_ALL As Long = 419Private Const MIN_ALL_UNDO As Long = 416Public Sub simgeyap Dim lngHwnd As LonglngHwnd = FindWindow Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL, 0&)End SubPublic Sub simgeyap Dim lngHwnd As LonglngHwnd = FindWindow Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL_UNDO, 0&)End SubPrivate Sub Command1_Click simgeyapEnd SubPrivate Sub Command2_Click simgeyapEnd Sub'Sorularınız İçin Holocaust@w. cn adresine mail atabilirsiniz... Holocaust The Late Night Hacker