VBCode formatting

VB Code:

x = 0 'initial value
 
Do
    x = x + 1
    Select Case x
      Case 2
          'what to do when x is 2
       Case 10
          'what to do when x is 10
       Case 500
          'what to do when x is 500 
     End Select
     DoEvents
Loop

Don't use tags within your code. The (Indent) tag is messing up the color coding. Use spaces is my recommendation.

Brad!

This is what I get when I copy and paste my code straight from VB. Seems like it's missing tabs or newline characters, cause it's suppose to be perfectly even:

VB Code:

Option Explicit
 
Public Function Calculate_Angle(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) As Single
    
    Const PI As Single = 3.141592654
    
    Dim DX As Single, DY As Single
    Dim Angle As Single
 
        DX = X2 - X1
        DY = Y2 - Y1
        
        Angle = 0
 
        If DX = 0 Then
        
            If DY = 0 Then
            
                Angle = 0
                
            ElseIf DY > 0 Then
            
                Angle = PI / 2
            
            Else
                
                Angle = PI * 3 / 2
                
            End If
        
        ElseIf DY = 0 Then
 
            If DX > 0 Then
            
                Angle = 0
                
            Else
            
                Angle = PI
            
            End If
        
        Else
        
            If DX < 0 Then
            
                Angle = Atn(DY / DX) + PI
                
            ElseIf DY < 0 Then
            
                Angle = Atn(DY / DX) + (2 * PI)
                
            Else
            
                Angle = Atn(DY / DX)
                
            End If
            
            
        End If
 
        Angle = Angle * 180 / PI
 
        Calculate_Angle = Angle
 
End Function
 
Private Sub Form_Activate()
 
    AutoRedraw = True
    ScaleMode = 3
    BackColor = RGB(0, 0, 0)
    
    Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 50, RGB(0, 255, 0)
    
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Dim Angle As Single
    
    Angle = Calculate_Angle(Me.ScaleWidth / 2, Me.ScaleHeight / 2, X, Y)
    
    Me.Caption = Angle
 
End Sub

If you indent blank lines (like VB/most IDEs do by default) then that sometimes gets carried over onto the next line. You need to remove the unnecessary spaces.

Apparently they fixed the problem cause it looks even now. :p