hvordan angiver jeg owner form

Jeg synes det ligner VB.NET..?

jeg har skrevet det i Visual Basic 6 hehe men jeg er nybegynder så skal ikke kunne sige det

Så prøv igen - hvad vil du gerne - vil du vise en messagebox, eller?

Msgbox "Dette er en advarsel", vbOKOnly + vbCritical , "Advarsel"

Hvis det altså er det du vil....

Prøv lige at finde ud af hvilket programmeringssprog du vil have gang i før du går ret meget videre :o)

nej det er ikke en message box..

det er visual basic...

jeg vil have den til at lave en kopi af en form jeg har lavet og jeg skal bare have den til at vide at den nyeform tilhøre den gamle

Hvad mener du med "tilhører" - mener du en MDI form, eller?

Kan du ikke oprette to forms i designtime, og så loade nummer to form når du skal bruge den?

jeg ved faktisk ikke rigtig meget om MDI hehe, er lidt nybegynder...
altså så vidt jeg ved er det en ganske normal form som jeg åbner med
Private Sub Alert(Text As String)
    ' Display a new alertbox
    Dim AlertBox As frmAlert
    Set AlertBox = New frmAlert
    AlertBox.DisplayAlert Text, 3000
End Sub

det hele er et plugin til et musik program...
når jeg aktivere min Alert får jeg denne fejl
Run-time error '406':
Non.modal forms cannot be displayed in this host application from an active dll, activex control or property page.
ved ikke om det kunne hjælpe lidt?

En fejlmeddelse hjælper altid...

Er det et almindeligt VB6 program du laver - sidder du i VB6 og programmere, eller sidder du i noget VBA, eller hvad har du egentligt gang i - bruger du noget fra et musikprogram fra VB, hvad?

jeg sidder i VB6
det er et plugin til et musik program jeg er igang med at lave... programmet køre min user control (popperctrl) og derfra skal frmAlert åbnes

det er noget af koden fra min frmAlert

Public Sub DisplayAlert(MessageText As String, Duration As Long)

    Dim wFlags As Long, X As Long

    ' Increase the alert count
    AlertCount = AlertCount + 1
    AlertIndex = AlertCount

    ' Set the message
    lblAlert.Caption = MessageText

    ' Set the duration
    tmrAlert.Interval = Duration

    ' Get the system metrics we need
    fX = GetSystemMetrics(SM_CXFULLSCREEN)
    fY = GetSystemMetrics(SM_CYFULLSCREEN)
    lngScaleX = Me.Width - Me.ScaleWidth
    lngScaleY = Me.Height - Me.ScaleHeight
   
    ' Size the form
    Me.Height = 90
    Me.Width = picBackground.Width + lngScaleX
    Me.Left = fX * Screen.TwipsPerPixelX - Me.Width
    Me.Top = (fY * Screen.TwipsPerPixelY) - ((picBackground.Height + lngScaleY) * (AlertCount - 1)) + 300
    Me.Show
   
    ' Play sound
    wFlags = SND_ASYNC Or SND_NODEFAULT
    X = sndPlaySound(App.Path & "\newalert.wav", wFlags)
 
    ' Open the alert box
    tmrOpen.Enabled = True

End Sub