Option Strict Off
Option Explicit On
Module Module2
	' START-Prozedur:
	' Hier wird die Form "frmAppBar" geladen und angezeigt.
	' Über den zweiten Parameter der "LoadAppBar" - Prozedur
	' legen Sie fest, wie die AppBar ausgerichtet werden
	' soll:
	'
	' BerLeft:   am linken Bildschirmrand anzeigen
	' BarRight:  am rechten Bildschirmrand anzeigen
	' BarTop:    am oberen Bildschirmrand anzeigen
	' BarBottom: am unteren Bildschirmrand anzeigen
	'UPGRADE_NOTE: Main wurde aktualisiert auf Main_Renamed. Klicken Sie hier für 
' weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1061"'
	Sub Main_Renamed()
		Dim lBorder As Object
		lXTwips = VB6.TwipsPerPixelX
		lYTwips = VB6.TwipsPerPixelY
		'UPGRADE_WARNING: Die Standardeigenschaft des Objekts lBorder konnte nicht 
' aufgelöst werden. Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
		lBorder = 0
		LoadAppBar(frmAppBar.DefInstance, Module1.AppBarPos.BarTop)
	End Sub
End Module

If it was hard to code, it should be hard to read too.