Etwa so (picMessgeraet ist eine Picturebox):
 
Private Cost Pi As Double = 3.1415926535897932
 
Private Sub MessgeraetZeichnen(ByVal Wert As Double, ByVal Maximum As Double, _	
			       Optional ByVal WinkelNull As Long = -45, _
			       Optional ByVal WinkelMax As Long = 45, _
			       Optional ByVal ZeigerLaenge As Long = 100)
 
Dim X1 As Long, Y1 As Long
Dim X2 As Long, Y2 As Long
Dim WinkelZeiger As Double
 
With Me.picMessgeraet    
	X1 = .ScaleWidth \ 2    
	Y1 = .ScaleHeight    
	WinkelZeiger = ((((Wert / Maximum) * (WinkelMax - WinkelNull)) + _
			   WinkelNull) * Pi) / 180    
	X2 = (Sin(WinkelZeiger) * ZeigerLaenge) + X1    
	Y2 = (Cos(WinkelZeiger) * ZeigerLaenge) + Y1
End With
 
Me.picMessgeraet.Line (X1, Y1)-(X2, Y2), vbBlue
 
End Sub

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...