Am I missing something -

Option Explicit
Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Dim MainMenu() As Long
Private Sub Form_Load()
    Dim sData() As String
    ReDim sData(0) As String
    Dim InputFFile As String
    Dim IDs() As Long
    ReDim IDs(0) As Long
    Dim I As Long

ReDim MainMenu(0) As Long
    
    Open "C:\Documents and Settings\Iyad\Desktop\69 Server\Menu.69" For Input As #1
        Do Until EOF(1)
            Input #1, InputFFile
            ReDim Preserve sData(UBound(sData) + 1) As String
            sData(UBound(sData)) = InputFFile
            DoEvents
        Loop
    Close #1
    
    For I = 1 To UBound(sData)
        ReDim Preserve IDs(UBound(IDs) + 1) As Long
        IDs(I) = I
    Next
    
    For I = 1 To UBound(IDs)
        If Left(sData(I), 2) = "--" Then
            AppendMenu UBound(MainMenu), MF_STRING, IDs(I), sData(I)
        ElseIf Left(sData(I), 1) = "-" Then
            AppendMenu UBound(MainMenu), MF_STRING, IDs(I), sData(I)
        Else
            ReDim Preserve MainMenu(UBound(MainMenu) + 1) As Long
            MainMenu(UBound(MainMenu)) = CreatePopupMenu()
        End If
    Next
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim Pt As POINTAPI
    GetCursorPos Pt
    TrackPopupMenu MainMenu(0), TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&
End Sub