TRAY ved tryk på tast

http://www.ilook.fsnet.co.uk/vb/vbtray.htm

Der er en gode at gå ud fra .. :/ det er bare det med at man skal når den ER i tray, så skal man kunne kalde den frem igen :s

mikze hvad så har du fået det til at virke??

Nej .

så må du vel heller prøve den her: http://hjem.get2net.dk/sjh/eksperten/644283/vbTrayIconBalloonF7.zip

Ser fint ud :-) .. Men kan du lave det lidt om så det kun er ved tryk på F7, ikke nogle knapper .. udover timeren som jo nok skal være der ..

Ja.. så er det kun det her du skal bruge under frmMain..

' ----------------------------- frmMain -----------------------------
Option Explicit

Private Const VK_F7  As Long = &H76
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private WithEvents objTray As CTrayIcon

Private Sub Form_Load()
Dim strTip As String
  Set objTray = New CTrayIcon
  strTip = "tips"
  Call objTray.NotifyCreate(Me, Me.Icon, strTip)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Call objTray.NotifyRemove
End Sub

Private Sub Timer1_Timer()
Dim nKey As Long
Static blnState As Boolean

  nKey = VK_F7 ' Her er det F7 tasten som viser/fjerne programmet

  If blnState = False Then
    If GetAsyncKeyState(nKey) <> 0 Then
      If Me.Visible = False Then
        Me.Visible = True
          Else
        Me.Visible = False
      End If
      blnState = True
    End If
  ElseIf GetAsyncKeyState(nKey) = 0 Then
    blnState = False
  End If
End Sub
' ----------------------------- frmMain -----------------------------

Fino :P.. så mangler der bare lige at man kan trykke F12 = Hjælp boks .. og at man kan højreklikke på ikonet og få en menu som jeg selv skal kunne rette. Den skal have Åben og Hjælp .. og så About .. og der skal være 3 forskellige bokse som jeg skal kunne rette. du får selvfølgelig flere point :P