full screen me vb5

[placid]

pos ginete na balw ena programma se full screen me thn vb 5??<BR>filika,<BR>mAjOr_K

[sh4dow]

prepei prota na einai on top apo ta alla programmata ,deuteron na ginete maximize meso kodika kalytera kai triton h forma na min exei bevel oute bara (me ta koumpia klisimatos, elaxist. k' megist.)

[placid]

nai alla de fenontai katw pou leei enarxh klp.??

[sh4dow]

oxi an einai on top synexeia to programma.<BR>bebaia yparxei kai i lysh na kreibeis thn taskbar alla an einai ontop pianei.<BR>bebaia edo prepei kapoio programma na min einai ontop epishs giati ta pragmata periplekontai.

[placid]

kai pos to kanw ontop??

[sh4dow]

bale ayta se mia forma:<P>Const FLAGS = 3<BR>Const HWND_TOPMOST = -1<BR>Const HWND_NOTOPMOST = -2<BR>Public SetTop As Boolean<BR>Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer<P>Sub AlwaysOnTop(FormName As Form, bOnTop As Boolean)<BR> 'Sets a form as always on top<BR>Dim Success As Integer<BR>If bOnTop = True Then<BR> Success% = SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)<BR>Else<BR> Success% = SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)<BR>End If<BR>End Sub<P>Private Sub Form_DblClick()<BR>End<BR>End Sub<P>Private Sub Form_Load()<BR>'h forma ayth tha prepei na einai<BR>'a) BorderStyle = 0 - None<BR>'b) WindowState = 2 - Maximize<BR>AlwaysOnTop Me, True<BR>End Sub<BR>

[placid]

thanx a lot..