🚀 go-pugleaf

ik heb een form met wat buttons waarvan 1 om een midiin te openenen met
volgende code

Private Sub Command1_Click()
s = Space(1000)
Handle = 0                              'wordt verkregen door het systeem
DeviceID = 0                        '0 is het adres van onze midiin device
Callback = 0                            'adres van onze opvangfunctie zie
lager         '&H871170
Instance = &H4                      'userdata die wordt meegegven aan de
callbackfunctie     '&H5204B4
Flags = &H30001                     'hiermee wordt aangeduid of de callback
via een functie of dergelijke wordt gedaan '&H30000
error = midiInOpen(Handle, DeviceID, AddressOf clbMidiIn, Instance, Flags)
Text1 = Text1 & "midiInOpen" & vbCrLf
......etc wat info in een textvak geven over de argumenten die ik meegeef.
Text1 = Text1 & stringske & vbCrLf
End Sub

De callback functie in de module is als volgt:

Public Sub clbMidiIn(ByVal hMidiIn As Long, ByVal wMsg As Long, ByVal
dwInstance As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Long)
stringske = Form1.Text1 & "hMidiIn=" & hMidiIn & " MSg=" & Hex(wMsg) & "
Instance=" & dwInstance & " Par1=" & dwParam1 & " Par2=" & dwParam2
End Sub

Alles werkt zo ..maar.....
als ik nu "stringske" vervang door "form1.text1" in clbMidiIn dan krijg ik
een beschermingsfout bij het stoppen van het vb programma.
Breng ik een messagebox in, in clbMidiIn dan krijg ik dezelfde fout. Zit
probleem misschien dat  ik een public sub gebruik ipv van een functie?(hoe
geef ik void door in vb?)of mag ik bepaalde dingen niet doen in een callback
functie??
Tia
Cofke