Two questions and one more ;)

[PijakFranciszek]

First question:

I have disabled the max button in my form, but I can still resize it by moveing coursor at the end of the form. How can I disable it?

Second question:

How can I do that, when my prog starts its "status" isn`t at the task bar, but in the field where is for example Time (also at the task bar but in the special fileld). So, when I push "x" in my prog it won`t exit, but will be at "standby mode" at the task bar in the special field. How to do this?

[Hack]

1. Set the form to Fixed Single

2.

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
Private Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
 
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
 
Private SysTray As NOTIFYICONDATA
 
Private Sub StartInSysTray()
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    SysTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    SysTray.ucallbackMessage = WM_MOUSEMOVE
    SysTray.hIcon = Me.Icon
    SysTray.szTip = "&R&e&s&t&a&r&t" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, SysTray
    Me.Hide
    App.TaskVisible = False
End Sub
 
Private Sub Form_Load()
StartInSysTray
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    Shell_NotifyIcon NIM_DELETE, SysTray
End Sub
 
'Add A Picture Control To The Form.   Set its visible property to False
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Static rec As Boolean, msg As Long
    Dim RetVal As String
    Dim returnstring
    Dim retvalue
    msg = X / Screen.TwipsPerPixelX
    If rec = False Then
        rec = True
    Select Case msg
    Case WM_LBUTTONDOWN
    
    Case WM_LBUTTONDBLCLK
          
    Case WM_LBUTTONUP
         
    Case WM_RBUTTONUP
          
    End Select
        rec = False
    End If
 
End Sub

[-_MAD-HATTAH_-]

Uhh for ur first ? U can use 'windowstate'

Form1.Windowstate = 2 'for full screen (i think)

I'll have to chec back with you when I get home..I'm at lunch right now at skool. I'll post again later when i'm 100% sure

[PijakFranciszek]

Thanks for the help

[PijakFranciszek]

Yes, but something wrong is in this code, becouse the form start in the TaskBar (in the special field), but I can`t open it (there`s only a icon - double click does nothing). Oh, almost I forgot - how do that when I right click on the icon in special field I would open a menu with exit (right click menu)?

[scr0p]

Make an invisible menu with menu editor, then use PopUpMenu, I attached an example, I don't know if it will work with the Sys icon but Its the same concept.